﻿'ConcreteCommand Class.
Public Class UnidadOrdenRestarVida
    Implements IUnidadOrden

    Private _unidad As Unidad
    Private _percent As Integer

    Public Sub New(unidad As Unidad, percent As Integer)
        _unidad = unidad
        _percent = percent
    End Sub

    Public Sub Execute() Implements IUnidadOrden.Execute
        _unidad.RestarVida(_percent)
    End Sub
End Class
